home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Controls / Visual Basic Controls.iso / vbcontrol / psetting / pseval.exe / _SETUP.1 / MDIMain.pas < prev    next >
Encoding:
Pascal/Delphi Source File  |  1997-10-17  |  2.2 KB  |  95 lines
  1. unit MDIMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   PSetting, Buttons, ExtCtrls, Menus;
  8.  
  9. type
  10.   TfrmParent = class(TForm)
  11.     MainMenu1: TMainMenu;
  12.     mniFile: TMenuItem;
  13.     mniFileOpen: TMenuItem;
  14.     mniFileSave: TMenuItem;
  15.     N1: TMenuItem;
  16.     mniFileExit: TMenuItem;
  17.     mniHelp: TMenuItem;
  18.     mniHelpAbout: TMenuItem;
  19.     mniFileReopen: TMenuItem;
  20.     Panel1: TPanel;
  21.     SpeedButton1: TSpeedButton;
  22.     SpeedButton2: TSpeedButton;
  23.     frmsMain: TPFormSettings;
  24.     mniFileNew: TMenuItem;
  25.     dlgOpen: TOpenDialog;
  26.     mniView: TMenuItem;
  27.     mniViewOptions: TMenuItem;
  28.     procedure mniFileNewClick(Sender: TObject);
  29.     procedure mniFileOpenClick(Sender: TObject);
  30.     procedure mniFileSaveClick(Sender: TObject);
  31.     procedure frmsMainMRUClick(Sender: TObject; MenuItem: TMenuItem;
  32.       FileName: string; MRUIndex: Integer);
  33.     procedure mniHelpAboutClick(Sender: TObject);
  34.     procedure mniViewOptionsClick(Sender: TObject);
  35.   private
  36.     { Private declarations }
  37.   public
  38.     { Public declarations }
  39.   end;
  40.  
  41. var
  42.   frmParent: TfrmParent;
  43.  
  44. implementation
  45.  
  46. uses Child, About, Options;
  47.  
  48. {$R *.DFM}
  49.  
  50. procedure TfrmParent.mniFileNewClick(Sender: TObject);
  51. var
  52.     tempFrm : TfrmChild;
  53. begin
  54.     tempFrm := TfrmChild.Create( Application );
  55. end;
  56.  
  57. procedure TfrmParent.mniFileOpenClick(Sender: TObject);
  58. var
  59.     tempFrm : TfrmChild;
  60. begin
  61.     if ( dlgOpen.Execute = TRUE ) then
  62.     begin
  63.         tempFrm := TfrmChild.Create( Application );
  64.         tempFrm.FileName := dlgOpen.FileName;
  65.         tempFrm.Open;
  66.     end;
  67. end;
  68.  
  69. procedure TfrmParent.mniFileSaveClick(Sender: TObject);
  70. begin
  71.     TfrmChild( ActiveMDIChild ).Save;
  72. end;
  73.  
  74. procedure TfrmParent.frmsMainMRUClick(Sender: TObject; MenuItem: TMenuItem;
  75.   FileName: string; MRUIndex: Integer);
  76. var
  77.     tempFrm : TfrmChild;
  78. begin
  79.     tempFrm := TfrmChild.Create( Application );
  80.     tempFrm.FileName := FileName;
  81.     tempFrm.Open;
  82. end;
  83.  
  84. procedure TfrmParent.mniHelpAboutClick(Sender: TObject);
  85. begin
  86.     frmAbout.ShowModal;
  87. end;
  88.  
  89. procedure TfrmParent.mniViewOptionsClick(Sender: TObject);
  90. begin
  91.     frmOptions.ShowModal;
  92. end;
  93.  
  94. end.
  95.